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SQL> cl scr 



SQL> DECLARE 

2 V_Num NUMBER (2) := &GNum; 

3 BEGIN 

4 DBMS_OUTPUT . PUT_LINE ( ' The Value of V_Num is 

5 IF V_Num >10 

6 THEN 

7 DBMS_OUTPUT . PUT_LINE ( ' In The TRUE State Branch'); 

8 END IF; 

9 DBMS_OUTPUT . PUT_LINE ( ' Out Side The "IF" Control'); 

10 END; 

11 / 

Enter value for gnum: 15 
The Value of V_Num is : 15 
In The TRUE State Branch 
Out Side The "IF" Control 

PL/SQL procedure successfully completed. 

SQL> / 

Enter value for gnum: 5 
The Value of V_Num is : 5 
Out Side The "IF" Control 



' | | V_Num) ; 







^^0ium; 

’JlftrE ( ' ' 



PL/SQL procedure successfully ca™ered. 

4 r 

SQL> ED 4 |i3-+ 

Wrote file af iedt . buf . Hi 

+ +f % 

, r+ + % 

1 DECLARE , &%.. + J-C* 

2 V_Num NUMBER ( 

3 BEGIN 

4 DBMS_OUTPUT.PUT_^Ae ( ' The Value of V_Num is : ' | | V_Num) ; 

5 IF V_Num > \o 

6 THEN | ^4. 

7 DBMS_O l I^Py . RJT_LINE ( ' In The TRUE State Branch'); 

8 ELS, 

9 4 
10 

11 1DB^_0UTPUT.PUT_LINE ( 'Out Side The "IF" Control ' ) ; 

Sjjter value for gnum : 5 
i "tTne Value of V_Num is : 5 
H 4 . t1 .|feut Side The " IF " Control 






PL/SQL procedure successfully completed. 
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' | | V_Num) ; 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Num NUMBER (2) := SGNum; 

3 BEGIN 

4 DBMS_OUTPUT . PUT_LINE ( ' The Value of V_Num is 

5 IF V_Num >10 

6 THEN 

7 DBMS_OUTPUT . PUT_LINE ( ' In The TRUE State Branch'); 

8 ELSE 

9 DBMS_OUTPUT . PUT_LINE ( ' In The FALSE State Branch' 

10 END IF; 

11 DBMS_OUTPUT . PUT_LINE ( ' Out Side The "IF" Controll V 

12* END; 4 X t * 

SQL> / 

Enter value for gnum: 15 
The Value of V_Num is : 15 
In The TRUE State Branch 
Out Side The "IF" Control 

PL/SQL procedure successfully compl e" 

SQL> / 

Enter value for gnum: 5 
The Value of V_Num is : 5 
In The FALSE State Branch 
Out Side The "IF" Contr 

PL/SQL procedure succe/ completed. 

SQL> ED ^n+ |4i ± 

Wrote file afied^buf+jv 

1 DECLA RE 

2 V_Num P^KBHR ( 9 ) := SGNum; 

3 BEGIN + +t 

4 ^MEffcuTPUT . PUT_LINE ( ' The Value of V_Num is : ' | | V_Num) ; 

5 j!l^'% = rfum > 10 

6 f TM 




j r f]'|.^©BMS_OUTPUT . PUT_LINE ( ' In The TRUE State Branch'); 

► Cj ~DBMS_OUTPUT.PUT_LINE ( 'TRUE Responsibility 01'); 

V* 4 DBMS_OUTPUT . PUT_LINE ( ' TRUE Responsibility 02'); 

'0 DBMS_OUTPUT . PUT_LINE ( ' TRUE Responsibility 03'); 

11 ELSE 

12 DBMS_OUTPUT . PUT_LINE ( ' In The FALSE State Branch'); 

13 DBMS_OUTPUT . PUT_LINE ( ' FALSE Responsibility 01'); 



Q 
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14 DBMS_OUTPUT . PUT_LINE ( ' FALSE Responsibility 02'); 

15 DBMS_OUTPUT . PUT_LINE ( ' FALSE Responsibility 03'); 

16 END IF; 

17 DBMS_OUTPUT . PUT_LINE ( ' Out Side The "IF" Control'); 
18* END; 

SQL> / 



Enter value for gnum: 15 
The Value of V_Num is : 15 
In The TRUE State Branch 
TRUE Responsibility 01 
TRUE Responsibility 02 
TRUE Responsibility 03 
Out Side The "IF" Control 



PL/SQL procedure successfully 
SQL> / 

Enter value for gnum: 5 
The Value of V_Num is : 5 
In The FALSE State Branch 
FALSE Responsibility 01 
FALSE Responsibility 02 
FALSE Responsibility 03 
Out Side The "IF" Control 




0 



& 






<3 




PL/SQL procedure successfully c 



SQL> cl scr 



SQL> ED 
Wrote file 



af iedt , 






MBER^r= SNumberl; 
BER := &Number2; 



DECLARE 
V_Numberl 
V_Number2 . 

V_TEME 
BEGIN 

DB MSO UT^f . PUT_LINE ( 'Original V_Numberl = 
«B^byTPUT . PUT_LINE ( ' Original V_Number2 = 

fvJ^EMP := V_Numberl; 



fumberl > V Number2 THEN 



rtt^MSfumberl : = V Number 2 ; 

▼ — — ' 




:= V_TEMP; 



i fj+V_N umb e r 2 
" Z* END IF; 

DBMS_OUTPUT . PUT_LINE ( ’ Swapped V_Numberl = 
14 DBMS_OUTPUT . PUT_LINE ( ' Swapped V_Number2 = 
15* END; 

SQL> / 



' | | V_NUMBER1 ) ; 
' | | V_Number2) ; 



| | V_NUMBER1 ) ; 
| | V_Number2) ; 
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Enter value for number 1 : 10 
Enter value for number2 : 5 
Original V_Numberl = 10 
Original V_Number2 = 5 
Swapped V_Numberl = 5 
Swapped V_Number2 = 10 



PL/SQL procedure successfully completed. 



SQL> / 

Enter value for numberl : 5 
Enter value for number2 : 10 
Original V_Numberl = 5 
Original V_Number2 = 10 
Swapped V_Numberl = 5 
Swapped V_Number2 = 10 



PL/SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 



10 

11 

12 

13 

14 
15* 

SQL> 



DECLARE 

V_Numberl NUMBER 
V_Number2 NUMBER 
V_TEMP NUMBER; 
BEGIN 



:= &Numberl 
:= &Numbe ■?c\ 




END 

/ 



Enter^r 



DBMS OUTPUT .PUT L I NE 1' V_Numberl = 

DBMS_OUTPUT . PUT_LINE^fr^^ial V_Number2 = 
IF V_Numberl > V_Nj(to^g THEN 
V_TEMP : = V_Numbrfjt + J-d 
V_Numberl : = J^Nunfcjp^2 ; 

V_Number2 : = ; 

END IF; a 

DBMS_OUTPyjVuT_LINE ( 'Original V_Numberl = 
DBMS_q^M?^JT_LINE ( 'Original V_Number2 = 

i + -C5 - 



I I 
I I 



V_NUMBER1 ) 
V_Number2 ) 



I I 
I I 



V_NUMBER1 ) 
V_Number2 ) 




CJ 



for numberl : 
Ente w for number 2 : 

OrigfnalV/_Numberl = 5 
O^fjJWa V_Number2 = 10 
V_Numberl = 5 
L^riginal V_Number2 = 10 



5 

10 



L/ SQL procedure successfully completed. 



SQL> / 
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Enter value for number 1 : 10 
Enter value for number2 : 5 
Original V_Numberl = 10 
Original V_Number2 = 5 
Original V_Numberl = 5 
Original V_Number2 = 10 

PL/SQL procedure successfully completed. 
SQL> ED 

Wrote file afiedt.buf 



:= SNumberl; 
:= &Number2; 



DECLARE 

V_Numberl NUMBER 
V_Number2 NUMBER 
V_TEMP NUMBER; 

BEGIN 

DBMS_OUTPUT . PUT_LINE ( ' Original V_Numberl 
DBMS_OUTPUT . PUT_LINE ( 'Original V_Numbe^2 
IF V_Numberl > V_Number2 THEN + + + + ++ 

V_TEMP := V_Number 1 ; 

V_Numberl := V_Number2; 




_NUMBER1 ) 
/_Number2 ) 



V_Number2 := V_TEMP; 

DBMS_OUTPUT . PUT_LINE ( ' Swapped V_Nuflfeerl = 
DBMS_OUTPUT . PUT_LINE ( ' SwapJ^ftt/ Number 2 = 



10 
11 
12 

13 

14 

15 

16 
17* 

SQL> 

Enter value for number, 
Enter value for nu^oer2 
Original V_Numberl 
Original V_Numbex2 = 
Original V_Num^em = 5 
Original 10 



END IF; 

DBMS_OUTPUT . PUT 
DBMS_OUTPUT . PUT 
END; 

/ 



LINE ( ' 0*^gC» | ai t+ V_Number 1 



'_LINE4^i^i^ft V_1 



V Number 2 = 



I I 
! I 

I I 
I I 



V_NUMBER1 ) ; 
V_Number2 ) ; 

V_NUMBER1 ) ; 
V_Number2 ) ; 




cecMre 



d 



PL/SQL p 

SQL> / + + + 

Entef vaJue for numberl : 
Erffer^Blue for number 2 : 
^rfewial V_Numberl = 10 
/original V_Number2 = 5 
\3wapped V_Numberl = 5 
wapped V_Number2 = 10 
Original V_Numberl = 5 
Original V_Number2 = 10 



successfully completed. 



10 

5 
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PL/SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Numberl NUMBER := SNumberl; 

3 V_Number2 NUMBER := &Number2; 

4 V_TEMP NUMBER; 

5 BEGIN 

6 DBMS_OUTPUT.PUT_LINE ( 'Original 

7 DBMS_OUTPUT.PUT_LINE ( 'Original 

8 IF V_Numberl > V_Number2 THEN 

9 V_TEMP := V_Numberl; 

10 V_Numberl := V_Number2; 

11 V_Number2 := V_TEMP; 

1 2 DBMS_OUTPUT . PUT_LINE ( ' Swapped 

13 DBMS_OUTPUT.PUT_LINE ( 'Swapped 

14 END IF; 

15* END; 

SQL> / 

Enter value for number 1 : 10 
Enter value for number2 : 5 




Original V_Numberl = 10 
Original V_Number2 = 5 
Swapped V_Numberl = 5 
Swapped V_Number2 = 10 






•# 



PL/SQL procedure successfully completed. 
SQL> / 

Enter value for nu 
Enter value for aumbe-iC? : 10 
Original V_Num^:i\, = 5 



Original V-^u^tji e?*#^ ~ 1 0 

PL/SQL pmcedilre successfully completed. 

\Yf 

SQL> 

Wroti f. Ae 

af iedt . buf 
t f t) E CLARE 

L 2 V V_Numberl NUMBER := SNumberl; 

\3 V_Number2 NUMBER : = &Number2; 

4 V_TEMP NUMBER; 

5 BEGIN 

6 DBMS_OUTPUT.PUT_LINE ( 'Original V_Numberl 



|| V_NUMBER1 ) ; 
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7 DBMS_OUTPUT.PUT_LINE ( 'Original V_Number2 = 

8 IF V_Numberl > V_Number2 THEN 

9 V_TEMP := V_Numberl; 

10 V_Numberl := V_Number2; 

11 V_Number2 := V_TEMP; 

12 DBMS_OUTPUT . PUT_LINE ( ' Swapped V_Numberl = 

13 DBMS_OUTPUT . PUT_LINE ( ' Swapped V_Number2 = 

14 ELSE 

15 DBMS_OUTPUT.PUT_LINE ( 'Original V_Numberl = 

16 DBMS_OUTPUT.PUT_LINE ( 'Original V_Number2 = 

17 END IF; 

18* END; 

SQL> / 

Enter value for numberl : 5 
Enter value for number2 : 10 
Original V_Numberl = 5 
Original V_Number2 = 10 
Original V_Numberl = 5 
Original V_Number2 = 10 

PL/SQL procedure successfully completed 



| | V_Number2) 



V_NUMBER1 ) ; 
V_Number2 ) ; 

| V_NUMBER1 ; 

I V Numbei 



SQL> / 

Enter value for numberl : 
Enter value for number2 : 
Original V_Numberl = 10 
Original V_Number2 = 5 
Swapped V_Numberl = 5 
Swapped V_Number2 = 10 



10 

5 




PL/SQL procedure succ 



SQL> cl scr 



SQL> ED 
Wrote file 






ef^s^ta^ cc 

cf 



ompleted. 



1 DEC 




o 



2 « ifer DUMBER := SEnterNumber; 

3 

4 i IeNoD (V_Num, 2) = 0 THEN 

DBMS_OUTPUT . PUT_LINE (V_Num | | ' is an Even Number.'); 

fj+ELSE 

V 4 DBMS_OUTPUT . PUT_LINE ( V_Num | | ' is an Odd Number.'); 

END IF; 

9* END; 

SQL> / 

Enter value for enternumber: 8 



& 
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8 is an Even Number. 

PL/SQL procedure successfully completed. 
SQL> / 

Enter value for enternumber: 7 
7 is an Odd Number. 

PL/SQL procedure successfully completed. 
SQL> / 

Enter value for enternumber: NULL 
is an Odd Number. 

PL/SQL procedure successfully completed. 
SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Num NUMBER := &EnterNumber ; 

3 BEGIN 

4 IF V_Num IS NULL THEN 

5 DBMS_OUTPUT . PUT_LINE ( ' Fatal Erro 
Proceed'); 

6 ELSE ^ 

7 IF MOD (V_Num, 2 ) 

8 DBMS_OUTPUT . Pin' (■SjrNum | | 

9 else ^ 

10 
11 




DBMS_OUTPUT . P’ttjQJ^NE (V_Num | ! 

END IF; 4^*+ + 4-C* 



12 END IF; 

13* END; 

SQL> / 4 

Enter value fo^%ternumber: 8 

8 is an Ev 






TOLL Encountered Cannot 



is an Even Number. ') ; 
is an Odd Number. ' ) ; 



PL/SQL psflcedwf successfully completed. 



SQL> /++ + 

Entef vaVue for enternumber : 7 

O 7-tf^sw-’0dd Number . 

i/ SQL procedure successfully completed. 

QL> / 

Enter value for enternumber: NULL 

Fatal Error! NULL Encountered Cannot Proceed 
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PL/SQL procedure successfully completed. 
SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Year NUMBER := SYear; 

3 BEGIN 

4 IF MOD (V_Year, 4) = 0 THEN 

5 IF MOD (V_Year, 100) <> 0 THEN 

6 DBMS_OUTPUT.PUT_LINE (V_Year || 

7 ELSE 

8 IF MOD (V_Year, 400) = 0 THEN 

9 DBMS_OUTPUT . PUT_LINE (V_Year || 

10 ELSE 

11 DBMS_OUTPUT . PUT_LINE ( V_Year || 

12 END IF; 

13 END IF; 

14 ELSE 

15 DBMS_OUTPUT.PUT_LINE (V_Year || 

16 END IF; 

17* END; 

SQL> / 

Enter value for year: 2004 
2004 is a Leap Year 

PL/SQL procedure success 

SQL> / 

Enter value for ye 
2000 is a Leap Y$a 



c# 



A 



is a Leap Yea»' ) ; 

\ 

ear ' ) ; 

a Leap Year ' ) ; 



ot a Leap Year ' ) ; 



PL/SQL pro 
SQL> / 



a 



Enteiyv£®^ for year: 2006 
2006 ii^cS-tHiot a Leap Year 

PJj^Qkr^ri 

y 

'ter value for year: 1900 
900 is a not a Leap Year 




ccessfully completed. 



4 



Procedure successfully completed. 



PL/SQL procedure successfully completed. 
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SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Year NUMBER := SYear; 

3 BEGIN 

4 IF MOD (V_Year, 4) = 0 THEN 

5 IF MOD (V_Year, 100) <> 0 THEN 

6 DBMS_OUTPUT . PUT_LINE ( ' Flag 1 : Leap Year'); 

7 DBMS_OUTPUT . PUT_LINE (V_Year || ' is a Leap Year'); 

8 ELSE 

9 IF MOD (V_Year, 400) = 0 THEN 

DBMS_OUTPUT . PUT_LINE ( ' Flag 2 : Leap Year '4 ; 
DBMS_OUTPUT . PUT_LINE (V_Year | | ' is a Le 



0 * 



& 



ELSE 

DBMS_OUTPUT . PUT_LINE ( ' Flag 2 : Not A 

DBMS_OUTPUT . PUT_LINE ( V_Year || ' i s^a Vi 

END IF; 



10 
11 
12 

13 

14 

15 

16 END IF; 

17 ELSE 

18 DBMS_OUTPUT . PUT_LINE ( ' Flag 1 

19 DBMS_OUTPUT.PUT_LINE (V_Year | 

20 END IF; 

21* END; 

SQL> / 

Enter value for year: 2000 
Flag 2 : Leap Year 
2000 is a Leap Year 



1 






wear 

% 



S? 




J^PV ear ' > ’ 

aV^ow a Leap Year' ) ; 



Year ' ) ; 
ot a Leap Year ' ) ; 



# 



is? 

PL/ SQL procedure succe/ completed. 

SQL> / 

Enter value for vear :-*le00 6 
Flag 1 : Not A^it^p Year 
2006 is a p Year 

PL/SQL p^cedM successfully completed. 



o 



SQL>^ ++ + + + - 

Entef value for year: 2008 
F|%. Ih-:; Leap Year 
+£0 %8jh -S a Leap Year 

"/SQL procedure successfully completed. 



&/ 



SQL> / 

Enter value for year: 1900 
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Flag 2 : Not A Leap Year 
1900 is a not a Leap Year 

PL/SQL procedure successfully completed. 

SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Year NUMBER := SYear; 

3 BEGIN 

4 IF MOD (V_Year, 4) = 0 THEN 

5 IF MOD (V_Year, 100) <> 0 THEN 

6 — DBMS_OUTPUT . PUT_LINE ( ' Flag 1 

7 DBMS_OUTPUT . PUT_LINE (V_Year || 

8 ELSE 

9 IF MOD (V_Year, 400) = 0 THEN 
— DBMS_OUTPUT . PUT_LINE ( ' Flag 2 



Leap Year ' ) ; ♦_ 

is a 



Leap Yea 

i 1 , . > 



& 









— 
, r 



10 

11 

12 

13 

14 

15 

16 



Le 



,p^fe»r ' ) ; 

ap Year ' ) ; 



DBMS_OUTPUT . PUT_LINE ( V_Year || iM 
ELSE + + + + + + 

— DBMS_OUTPUT . PUT_LINE ( ' Flag A Leap Year'); 



DBMS_OUTPUT . PUT_LINE ( V_Ye 
END IF; 

END IF; 

17 ELSE 

18 — DBMS_OUTPUT . PUT_LINE ( 
DBMS_OUTPUT . PUT_LINE (V_ 

20 END IF; 

21* END; 

SQL> SPOOL OFF 




is a not a Leap Year'); 




Not A Leap Year'); 
is a not a Leap Year'); 
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